home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 231 / 231.d81 / disputes gazelle (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2003-01-01  |  3.1 KB  |  91 lines
  1. 0 d=peek(186)
  2. 1 ifpeek(828)<>32orpeek(838)<>150orpeek(848)<>183thenload"input any.o",d,1
  3. 2 clr:a$="":dq=peek(186):ns=10:fora=0tons-1:read f$(a):next
  4. 3 data t.last/first,eptitude test,alfredo's pp,disk eraser,t.junk mail
  5. 4 data win/lose/draw,labyrinth 101,fools gold,t.randumb events,t.first/last
  6. 5 v=53248:pokev+17,27:pokev+32,14:pokev+33,14
  7. 10 print"[147][204]oading contents of tables.
  8. 20 [159]15,dq,15:[159]8,dq,8,"#":t[178]18
  9. 21 [129]i[178]1[164]6
  10. 22 [152]15,"u1:8 0"t;.:[139][187](1)[179].9[167]22
  11. 23 t[178][181]([187](1)[172]35)[170]1:[130]:[160]8:[160]15
  12. 30 [153]"loadpeekefore attempting to run any programs
  13. 31 print"please refer to the sales pitches in the
  14. 32 [153]"str$right$(NULL)(NULL)(NULL)(NULL)val?'s chr$azelle (NULL)agazine issue dated
  15. 33 print"the same decade as this disk.
  16. 35 [153]"(NULL)lease note that chr$azelle str$isk often
  17. 36 print"features programs which write garbage to
  18. 37 [153]"the screen.  lenopy those programs to
  19. 38 print"another screen - this screen is read
  20. 39 [153]"protected.
  21. 40 print" [208][210][197][211][211][160][193][206][217][160][203][197][217][160][198][207][210][160][205][197][206][213] ";:poke198,.:wait198,1:poke198,.:print"[147]";
  22. 42 poke808,237
  23. 45 pokev+17,91:pokev+34,8:pokev+35,15:pokev+36,2:pokev+24,21
  24. 46 h$="[146]----------------------------------------
  25. 50 [153]h$"sysstr$right$(NULL)(NULL)(NULL)(NULL)valsinthen(NULL)closechr$atn(NULL)val(NULL)(NULL)valclose/closeabsabs*close>=<closeatn(NULL)str$closepeekright$len/>or^";
  26. 51 [153]"closeclosecloselen(NULL)(NULL)(NULL)val(NULL)(NULL)(NULL)close(NULL)ascclose(NULL)atnpeek(NULL)val(NULL)closeasc(NULL)(NULL)closeatn(NULL)(NULL)right$(NULL)close>posfreusrcloseclosecloseclose";
  27. 52 [143]  print"closenotstr$stepclose>posfreusrclosestr$right$(NULL)(NULL)(NULL)(NULL)valsinclose(NULL)(NULL)peek(NULL)*close(NULL)(NULL)(NULL)(NULL)chr$val(NULL)*closeval(NULL)len^closeclosewait"h$;
  28. 53 [153]"wait"h$;
  29. 55 [153]"closeorclose poke last things first (janitorial)     "h$;
  30. 56 [153]"close>close poke eptitude test                      "h$;
  31. 57 [153]"close=close poke alfredo's pitiful pitfall          "h$;
  32. 58 [153]"close<close poke disk eraser (subtrac)              "h$;
  33. 59 [153]"closesgnclose poke junk mail (delayed -- wrong zip!)  "h$;
  34. 60 [153]"closeintclose poke win, lose, or draw                 "h$;
  35. 61 [153]"closeabsclose poke labyrinth 101                      "h$;
  36. 62 [153]"closeusrclose poke fools gold                         "h$;
  37. 63 [153]"closefreclose poke ranndumb events (article)          "h$;
  38. 64 [153]"closeposclose poke first things last (exit)           "h$;
  39. 65 [151]198,.:[146]198,1:[161]k$:k[178][197](k$):mm[178]k:[139](k$[179]"0")[176](k$[177]"9")[167]65
  40. 70 [139](k[178]0)[176](k[178]4)[176](k[178]8)[176](k[178]9)[167]f$[178]f$(k):[137]1000
  41. 90 [153]"loadcontload"[199](34)f$(k)[199](34)","dq
  42. 95 [153]"run":[151]631,13:[151]632,13:[151]198,2
  43. 98 [151]53280,14:[151]53281,6:[151]53265,27:[128]
  44. 1000 [153]"load";:[151]v[170]17,27:[159]8,dq,8,f$
  45. 1005 [151]808,237:[158]828,8,39:a$[178]a$[170]"":i[178]st:[153]a$:[139][194](214)[179]22[175]i[178].[167]1005
  46. 1010 eof[178]0:[153]:[139]i[167][160]8:eof[178]1
  47. 1015 [139]eof[178]0[167]ag[178][187](1)
  48. 1017 [139]eof[178]0[175]ag[179].5[167] [137] 10000
  49. 1018 [139]eof[178]0[167] [137] 11000
  50. 1020 [153]"           (NULL)ress (NULL)left$atn(NULL) key."
  51. 1025 [151]198,.:[146]198,1:[161]k$:[153]"load";:[137]1036
  52. 1030 :
  53. 1035 [153]"load";:[151]v[170]32,14:[151]v[170]33,14:[139]st[178].[167]1005
  54. 1036 [151]v[170]17,91:[139]mm[179][177]9[167]45
  55. 1037 [159]15,dq,15,"r0:h=h":[132]15,er:[160]15
  56. 1038 [151]53265,27:[139]er[179][177]63[167][128]
  57. 1039 [147]"h1",dq
  58. 1040 [151]v[170]32,8:[151]v[170]33,2:[153]"loadsysleft$val(NULL)closevalright$(NULL)(NULL)(NULL)valright$(NULL)! right$ didn't say to press the
  59. 1041 print" [210][213][206]/[211][212][207][208] [146] key!!!  [195][193][206]'[212][160][217][207][213][160][210][197][193][196]?
  60. 1042 [153]"right$ said to press  (NULL)/(NULL) wait!!!  (NULL)(NULL)(NULL)closestr$(NULL)close(NULL)(NULL)!!
  61. 1043 print"([217]ou humans can't do [193][206][217][212][200][201][206][199] right!)":goto10030
  62. 10000 rem r/s prompts
  63. 10010 p=1
  64. 10020 print"       [208]ress  [210]/[211] [146] to continue:"
  65. 10030 poke808,239:gosub 12000
  66. 10040 ifk$=chr$(3)then1040
  67. 10050 ifk$<>"r"then10030
  68. 10060 gosub 12000:ifk$<>"/"then10030
  69. 10070 gosub 12000:ifk$<>"s"then10030
  70. 10080 poke808,237:goto1035
  71. 10085 :
  72. 11000 rem gibberish prompt
  73. 11010 p=2
  74. 11020 print"    [208]ress [[208]], [[206]], [[210][197][212][213][210][206]], or [[217]]"
  75. 11030 poke808,239:gosub 12000
  76. 11040 ifk$="p"then1035
  77. 11050 ifk$="n"thenpoke53280,1:fordl=1to500:next:poke53280,254:goto11030
  78. 11060 ifk$=chr$(13)thengosub13000:goto11030
  79. 11070 ifk$="y"thenprint"[147]":close8:goto42
  80. 11080 goto11030
  81. 11090 :
  82. 12000 rem get key
  83. 12010 poke198,0:wait198,1:getk$:return
  84. 12020 :
  85. 13000 rem  make noise
  86. 13010 forag=1to100:poke54296,15:poke54296,0:next:return
  87. 13020 :
  88. 59999 end
  89. 60000 d=peek(186):open1,d,15,"i0":n$="disputes gazelle"
  90. 60001 print#1,"s0:"+n$:close1:saven$,d:end
  91.